home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / -commercial- / golded5_demo / uninstall < prev    next >
Text File  |  1998-11-30  |  7KB  |  231 lines
  1. ; $VER: GoldED Studio Uninstall 5.0.0 (13.07.98)
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. ; -------------------------------- set strings ---------------------------------
  6.  
  7. (if (= @language "deutsch")
  8.  
  9.     (
  10.         (set #studio_notfound "Es wurde keine vorhandene Installation gefunden !")
  11.  
  12.         (set #studio_uninstall
  13.  
  14.             (cat
  15.  
  16.                 "Dieses Programm entfernt GoldED Studio 5 von ihrem  \n"
  17.                 "Computer !                                          \n"
  18.                 "                                                    \n"
  19.                 "Verwenden Sie dieses Programm nur, wenn Studio 5    \n"
  20.                 "komplett gelöscht werden soll. Einzelne Komponenten \n"
  21.                 "können mit dem normalen Setup-Programm entfernt     \n"
  22.                 "werden.                                             \n"
  23.                 "                                                    \n"
  24.                 "Wir empfehlen die Verwendung diese Programms nur    \n"
  25.                 "direkt nach einem Neustart. Es sollten vorher keine \n"
  26.                 "anderen Programme gestartet worden sein.            \n"
  27.             )
  28.         )
  29.  
  30.         (set #studio_uninstall_help
  31.  
  32.             (cat
  33.  
  34.                 "Das Studio-Verzeichnis und alle Unterverzeichnisse  \n"
  35.                 "werden entfernt, wenn Sie fortfahren !              \n"
  36.             )
  37.         )
  38.  
  39.         (set #studio_uninstall_uninstall "Fortfahren")
  40.  
  41.         (set #studio_uninstall_cancel "Abbrechen")
  42.  
  43.         (set #studio_confirm
  44.  
  45.             (cat
  46.  
  47.                  "Gefundene Installation:                            \n"
  48.                  "                                                   \n"
  49.             )
  50.         )
  51.  
  52.         (set #studio_confirm_uninstall "Entfernen")
  53.  
  54.         (set #studio_confirm_cancel "Abbrechen")
  55.  
  56.         (set #studio_uninstalling "GoldED Studio wird entfernt ...")
  57.  
  58.         (set #studio_error
  59.  
  60.             (cat
  61.  
  62.                 "Deinstallation abgeschlossen.                       \n"
  63.                 "                                                    \n"
  64.                 "Es konnten nicht alle Komponenten entfernt werden.  \n"
  65.                 "Beenden Sie alle Programme, starten Sie den Rechner \n"
  66.                 "neu und löschen Sie die verbleibenden Dateien.      \n"
  67.             )
  68.         )
  69.     )
  70.  
  71.     ; english strings
  72.  
  73.     (
  74.         (set #studio_notfound "Es wurde keine vorhandene Installation gefunden !")
  75.  
  76.         (set #studio_uninstall
  77.  
  78.             (cat
  79.  
  80.                 "This program removes GoldED Studio 5 from your      \n"
  81.                 "computer !                                          \n"
  82.                 "                                                    \n"
  83.                 "Use this program to have Studio 5 completely removed\n"
  84.                 "from your computer. Use the normal setup program to \n"
  85.                 "remove specific components.                         \n"
  86.                 "                                                    \n"
  87.                 "We recommend to use this program directly after a   \n"
  88.                 "reboot only. No other programs should have been     \n"
  89.                 "started before uninstallation.                      \n"
  90.             )
  91.         )
  92.  
  93.         (set #studio_uninstall_help
  94.  
  95.             (cat
  96.  
  97.                 "The Studio directory and all subdirectories are     \n"
  98.                 "deleted if you proceed !                            \n"
  99.             )
  100.         )
  101.  
  102.         (set #studio_uninstall_uninstall "Proceed")
  103.  
  104.         (set #studio_uninstall_cancel "Cancel")
  105.  
  106.         (set #studio_confirm
  107.  
  108.             (cat
  109.  
  110.                  "Installation detected:                             \n"
  111.                  "                                                   \n"
  112.             )
  113.         )
  114.  
  115.         (set #studio_confirm_cancel "Cancel")
  116.  
  117.         (set #studio_confirm_uninstall "Delete")
  118.  
  119.         (set #studio_uninstalling "Uninstalling ...")
  120.  
  121.         (set #studio_error
  122.  
  123.             (cat
  124.  
  125.                 "Uninstallation completed.                           \n"
  126.                 "                                                    \n"
  127.                 "Some files could not be removed. Terminate all      \n"
  128.                 "programs, reboot your computer and delete the       \n"
  129.                 "remaining files manually.                           \n"
  130.             )
  131.         )
  132.     )
  133. )
  134.  
  135. ; ---------------------------------- uninstall ---------------------------------
  136.  
  137. (if (exists "golded:" (noreq))
  138.  
  139.     (
  140.         (set uninstallpath (expandpath "golded:"))
  141.  
  142.         (set continue
  143.  
  144.             (askbool
  145.  
  146.                 (prompt #studio_uninstall)
  147.  
  148.                 (help #studio_uninstall_help)
  149.  
  150.                 (choices
  151.  
  152.                     #studio_uninstall_uninstall
  153.                     #studio_uninstall_cancel
  154.                 )
  155.  
  156.                 (default 0)
  157.             )
  158.         )
  159.  
  160.         (if (= continue 1)
  161.  
  162.             (
  163.                 (set continue
  164.  
  165.                     (askbool
  166.  
  167.                         (prompt (cat #studio_confirm uninstallpath))
  168.  
  169.                         (help #studio_uninstall_help)
  170.  
  171.                         (choices
  172.  
  173.                               #studio_confirm_uninstall
  174.                               #studio_confirm_cancel
  175.                         )
  176.  
  177.                         (default 0)
  178.                     )
  179.                 )
  180.  
  181.                 (if (= continue 1)
  182.  
  183.                     (
  184.                         (working #studio_uninstalling)
  185.  
  186.                         (run "run <>NIL: installdata/programs/stopgolded")
  187.  
  188.                         ; delete drawer symbol
  189.  
  190.                         (delete
  191.  
  192.                             (tackon uninstallpath ".info")
  193.                         )
  194.  
  195.                         ; clean up startup sequence
  196.  
  197.                         (run "installdata/programs/stripstartup >NIL: LINES=6 SECTIONNAME=JOYCE")
  198.  
  199.                         (run "installdata/programs/stripstartup >NIL: LINES=6 SECTIONNAME=HiSpeed")
  200.  
  201.                         (run "installdata/programs/stripstartup >NIL: LINES=6 SECTIONNAME=GED_quick")
  202.  
  203.                         (run "installdata/programs/stripstartup >NIL: LINES=6 SECTIONNAME=GoldED")
  204.  
  205.                         ; get rid of active assigns pointing to golded directory
  206.  
  207.                         (run ("installdata/programs/remassigns >NIL: BASEDIR \"%s\"" uninstallpath))
  208.  
  209.                         ; delete root directory
  210.  
  211.                         (run ("installdata/programs/remdir >NIL: BASEDIR \"%s\"" uninstallpath))
  212.  
  213.                         (if (exists uninstallpath (noreq))
  214.  
  215.                             (message #studio_error)
  216.                         )
  217.                     )
  218.                 )
  219.             )
  220.         )
  221.  
  222.     )
  223.  
  224.     (message #studio_notfound)
  225. )
  226.  
  227. (exit (quiet))
  228.  
  229. (welcome)
  230.  
  231.